﻿Namespace EyeOpen.DataGridViewIntercept.Windows

	Partial Public Class MainForm
		Inherits Form
		Public Sub New()
			InitializeComponent()

			dataGridView1.DataSource = New List(Of Customer) From {
				New Customer With {.Value = 10.3D},
				New Customer With {.Value = 3.5D}}
		End Sub

		Private Sub DataGridView1EditingControlShowing(ByVal sender As Object, ByVal e As DataGridViewEditingControlShowingEventArgs) Handles dataGridView1.EditingControlShowing
			AddHandler e.Control.KeyPress, Sub(s, a)
						If a.KeyChar = "."c Then
							a.KeyChar = ","c
						End If
			End Sub
		End Sub
	End Class
End Namespace